===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 05-11-93 (22:18)             Number: 51
From: STEVE DEMO                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: ship.bas 3 of 3                Conf: (35) Quick Basi
---------------------------------------------------------------------------
'Page 3 of SHIP.BAS begins here.
G"ZmdlGivzNHflGivzNHvknOqroreitvLqnOqdkmvvcbstVv3CLnvz0H0BYbcknLMB
G"LWcinfgELKsdkaciGaIuLDgwUmgEG0diO0uAUvciQaImPaslGetdkaciGaIuLDgw
G"UqgEG0diO0uy4vciQaImPaslGetdkaciGaIuLDgwUegEG0di30GcGaciGmuqmXei
G"j5evfjLuvbfvyHIjinZmSaIuLDgwSaIuLDgwP0Gcf5erGmvvc1GcnOWuvjein9wD
G"Zv2uLrNvLjhDGGstP5wjSastHHxjP0GcGaciGivzNHLlJHhi9acknLMBLKciTasm
G"nOaiGacisv2zy5cz4bspGGstHHxjPaslGetdkaciGaIuLDgwUegEG0di40GcGaci
G"GmuqmXeij5evfjLuvbfvyHIjinZmSaIuLDgwSaIuLDgwP0Gcf5erGmvvc1GcnOWu
G"vjein9wDZv2u0fgD1nhiOyvzYrxjSacsVjxjSasBIvhD09MBZrsknOaiGacisv2z
G"y5sy4bspGmtdkaciGaYqbXetGKKtuvKusvfuuHfkMG0mZWcisv2zyXcisv2zyLsd
G"kaciGaIvLjhDLaspGGIuLDgwUqgEP0GcGaciGG0BYvci9acksv2zy5Yy4Lsdkaci
G"GaYufXurdrfidf0ufbIuLDgwUigEnOqcdf0ufbcmnOqcGaciG0My1rhDV52CKasp
G"GiIinOqcdf0ufbsmnOqcGaciG0My1rhDV52CKaspGictI0GcjmuqtveiY0Gcjaci
G"GasBIvhD09MBZrci9aIisjsdkKWqbnvrGmtdkKaiGaciTjwD0r3BUnhjG0diIWKu
G"I0Gcjmuqtvei00GcjaciGasBIvhD09MBZrci9aIidjsdkaciGasroreitvetfnev
G"nOqroreitvLqnOqdkqurgLKtubsqTOvdkaYuvjeiWfwDZvgiOqxAJT2CLKsdkaci
G"GaYjQOIkQacDPn2AZvciHjxzGeZlXGdDObYCLn2BUrwdkaciGacrfzeitv0rG0di
G"W0GcGaciGq0tGuLtuLetGqvzZrhvPn2ALaIpGqxAJT2CL0GcjKKrGWuroHssoTur
G"zrskGqfsf5eifHvsubYuvjudkKatHnhDuL2yRvci9aYrLrhvPn2AL0GcjCuz0rvA
G"JTwjG0diqvurlHIjirJndLsdkKqsgbctHnhDuL2yRvci84dihvgDuL2yRvciuHur
G"o1GcjaciGacvLnhDuL2yRvci9acvLnhDuL2yRvciRasmnOqcf5erGKKrnOaiGaci
G"m90tq1GcGaciGqurgbYufDudkasroreitvLqnOqdkmvvcbIuLr2uOLgCGGIBLDhE
G"SaIBLDxEP0GcNqcrz5uqnL0qnOGufrusnbIrOmdm2Ksdkyek4Kci9aco6aIrOKtk
G"G0diXiJoGyekXatkG0di4OtdkyekYmtkG0diXiJoGyekYqtkG0diXiJoGyekYutk
G"G0diXiJoGyekYytkG0diXiJoGyekYCtkG0diXiJonOGrOmtoPaspGGJoGyek0atk
G"G0diXuJoGyek0etkG0diXiJoGyek0itkG0diXuJoGyek0mtkG0di4Otdkyek1atk
G"G0diXiJoGyek1etkG0di3OdigHsnYKci9asmYOdigHsnZKci9asmYOdigHsn0Kci
G"9asmYOdigHsn1Kci9aco6aIrOuJnPaspGetn6aIrOuZnPaspGeJm6aIrOudoPasp
G"Getn6aIrOutoPaspGGJoGyek2atkG0diXiJonOGrOytmPaspGeJm6aIrOyJmPasp
G"GeJm6aIrOyZmPaspGCJoGyek2qtkG0diXiJoGyek2ytkG0diXiJoGyek2CtkG0di
G"XiJoGyek2GtkG0di3OdigHIn5Kci9aYn6aIrOCdmPaspGCJoGyek3etkG0di0Otd
G"kyek3itkG0diXuJoGyek3mtkG0diXiJoGyek3qtkG0diXuJoGyek3utkG0di0Odi
G"gHYn2Kci9aYn6aIrOCZnPaspGCJoGyek3GtkG0di3OdigHYn5Kci9asmYOdigHco
G"WKci9asmYOdigHcoYKci9aco60GcgHcoZKci9asmYOdigHco0Kci9asmYOdigHco
G"1Kci9asmYOdigHco2Kci9acn6aIrOGZnPaspGqJoGyek4GtkG0diXuJoGyek4Ktk
G"G0diXiJoGyek5atkG0diXuJoGyek5etkG0di0OdigHsoYKci9acn6aIrOKZmPasp
G"GeJm60GcgHso0Kci9asmYOdigHso1Kci9asmYOdigHso2Kci9aco6aIrOKtoPasp
G"Getn6aIrOedmWKci9asmYOdigHsmWetkG0diXiJoGyekXaJmPaspGqJoGyekXaZm
G"PaspGqJoGyekXadnPaspGetn60GcgHsmWutkG0diXiJoGyekXaJnPaspGetn6aIr
G"Oedm3Kci9acn6aIrOedm4Kci9acn6aIrOedm5Kci9asmYOdigHsmXatkG0diXiJo
G"GyekXetmPaspGetn6aIrOetm1Kci9aco60GcgHsmXytkG0diXiJoGyekXeZnPasp
G"GeJm6aIrOetm4Kci9acn6aIrOetm5Kci9acn6aIrOeJmWKci9asmYOdigHsmYetk
G"G0diXuJoGyekXiJmPaspGeJm6aIrOeJmZKci9acn6aIrOeJm0Kci9acn6aIrOeJm
G"1Kci9asmYOdigHsmYytkG0diXiJonOGrOeJm3Kci9aco6aIrOeZmYKci9asm1Odi
G"gHsmZmtkG0diXiJoGyekXmdnPaspGqJoGyekXmtnPaspGqJoGyekXmJnPaspGeJm
G"6aIrOeZm3Kci9asm1OtdkyekXmdoPaspGeJm6aIrOeZm5Kci9acn6aIrOednWKci
G"9acn6aIrOednXKci9asmYOdigHsm0itkG0diXuJoGyekXqdoPaspGetn60GcgHsm
G"0KtkG0di4OdigHsm1atkG0di0OdigHsm1etkG0diXiJoGyekXuJmPaspGeJm6aIr
G"OetnZKci9asm1OdigHsm1qtkG0diXiJoGyekXutnPaspGeJm6aIrOetn2Kci9acn
G"6aIrOetn3Kci9aco6aIrOetn4Kci9asm1OtdkyekXydnPaspGeJm6aIrOeJn2Kci
G"9asm6aIrOeJn3Kci9asmYOdigHsm2GtkG0diXiJoGyekXytoPaspGetn6aIrOeZn
G"WKci9asmYOdigHsm3etkG0diXiJoGyekXCJmPaspGeJoGyekXCdnPaspGeJm60Gc
G"gHsm4atkG0diXqJoGyekXGJmPaspGGJoGyekXGZmPaspGeJm6aIrOedo0Kci9asm
G"YOdigHsm4utkG0diXuJoGyekXGJnPaspGeJm6aIrOedo3Kci9asmYOdigHsm4Gtk
G"G0di4OdigHsm5atkG0diXqJonOGrOeto4Kci9aco6aIrOeto5Kci9asmYOdigHIm
G"WatkG0di4OdigHImWetkG0diZOdigHImWitkG0di4OdigHImWmtkG0diXiJoGyek
G"YadnPaspGGJonOGrOitm1Kci9aco6aIrOitm2Kci9asmYOdigHImXCtkG0diXuJo
G"GyekYedoPaspGeJm6aIrOitm5Kci9aco60GcgHImZetkG0di4OdigHImZitkG0di
G"XOdigHImZmtkG0diZOdigHImZqtkG0diXOdigHImZutkG0di4OtdkyekYqtoPasp
G"GeJm60GcKbspGatdkaciGy0tsbcEG0diUv2D4bcvpbIBLDhEGSciXytdkaciGaci
G"Gy0tsbcE4Hhi9aIBLDxEGq1tG4wz3LhiRasm10GcGaciGaciGqgi9aczGSciX0Gc
G"GaciGaciGavA4LwzSn0BS9MCG0digHczP0GcGaciGaYrLr3qVX2BYbspGa1tj5ev
G"OGhE4Xci4LsdkaciGacijzeiqLgEPvgBd9gBVjhi84diWacvivKtnOaiGaciGaci
G"jzeihvgDd9gBVjhi84diXadiuHurobciGaciGaciGaYji9gDGm2BS9MCGy2BYbsA
G"UzxAZfMySvwdkKautvevGGcE4HhlGGxkSacuPHxALX2qVX2BY1GcGaciGaciGuKt
G"ebssg1GcGaciGasroreijzudkaciGaciG4uryrfi4HhEnOaiGaItfHfvGGxdk0Gc
G"fjvqtveig1GcnOqroreitvLqnOqdka"
N=11206:K=255:IF LEN(C$)<>14942 THEN ?"Bad script file!":BEEP:END
FOR A=1 TO N:LOCATE,1:?(100&*A)\N"% Done";:IF L=0 THEN GOSUB G:L=6
W=T\P(6-L):GOSUB G:W=W OR T*P(L):L=L-2:B$=CHR$(W AND K):PUT 1,,B$:NEXT
?:IF C<>170 THEN ?"Bad checksum!":BEEP:END ELSE ?"Success!":END
G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND K):RETURN
SUB G(A$):SHARED C$:C$=C$+RTRIM$(A$):END SUB
'Have fun
'This is what I have come up with so far.
___ Blue Wave/QWK v2.11

--- Maximus 2.01wb
 * Origin: Semper Fi BBS  Ft. Wayne, IN  (219) 424-4292 (1:236/21)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20